What PC? 1996 July/WPCJUL96.ISO/file.exe/MGIFINJ.DXR/00011_MGINoiseMove, MGIPosterHighLight.ls

Text File | 1996-05-15 | 8.2 KB | 188 lines

on MGINoiseMove
  global MGIIntroCounter, MGINoiseSprite, MGILogoSprite, MGIFoodPosterSprite, MGIFindTV, MGIMasterList, MGILastPosterSprite, MGIInternetTextList, MGIWhichHomeMacList, MGIWhichHomePCList, MGIGETCount
  if the mouseUp and (MGIFindTV = 2) then
    set MGIFindTV to 3
  end if
  if rollOver(MGILogoSprite) then
    set the castNum of sprite MGINoiseSprite to 59
    if MGIFindTV = 1 then
      set the castNum of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 8)
      set the locH of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 3)
      set the locV of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 4)
      set the ink of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 5)
      set the locH of sprite 28 to 2000
      set the locH of sprite 29 to 2000
      set the ink of sprite MGINoiseSprite to 36
      set the castNum of sprite 47 to the castNum of sprite 47 - 1
      updateStage()
      MGISpinE()
      set the locH of sprite 2 to the mouseH
      set the locV of sprite 2 to the mouseV
    end if
    repeat while rollOver(MGILogoSprite) or rollOver(getAt(getAt(MGIInternetTextList, 1), 1))
      MGISpinE()
      if MGIFindTV = 1 then
        repeat while MGIFindTV = 1
          MGISpinE()
          set the locH of sprite 2 to the mouseH
          set the locV of sprite 2 to the mouseV
          if the mouseDown then
            cursor(200)
            set the locH of sprite 34 to 2000
            set the locH of sprite 2 to 2000
            updateStage()
            repeat with d = MGIFoodPosterSprite to MGILastPosterSprite
              MGISpinE()
              set g to d - MGIFoodPosterSprite + 1
              set the castNum of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 8)
              set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 3)
              set the locV of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 4)
              set the ink of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 5)
              updateStage()
              set the locV of sprite d to 550
              repeat while the locV of sprite d > (407 + 15)
                set the locV of sprite d to the locV of sprite d - 15
                MGISpinE()
                updateStage()
              end repeat
              set the locV of sprite d to 407
              updateStage()
              set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to 2000
              wait(1)
            end repeat
            repeat with t = 1 to count(MGIMasterList)
              if count(getAt(MGIMasterList, t)) > 2 then
                if getAt(getAt(MGIMasterList, t), 5) = 39 then
                  set the ink of sprite getAt(getAt(MGIMasterList, t), 1) to 36
                  setAt(getAt(MGIMasterList, t), 5, 36)
                end if
              end if
            end repeat
            set the ink of sprite 1 to 36
            repeat with x = 39 to 47
              set the ink of sprite x to 36
            end repeat
            cursor(-1)
            set the locH of sprite 34 to 560
            updateStage()
            set MGIFindTV to 2
            cursor(-1)
          end if
        end repeat
      else
        if (MGIFindTV = 3) and the mouseDown then
          cursor(200)
          set MGIIntroCounter to 0
          repeat with d = MGIFoodPosterSprite to MGILastPosterSprite
            set g to d - MGIFoodPosterSprite + 1
            set the castNum of sprite MGINoiseSprite to getAt(getAt(MGIInternetTextList, g), 6)
            set the castNum of sprite d to the castNum of sprite d + 1
            set the castNum of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 2)
            set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 3)
            set the locV of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 4)
            set the ink of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 5)
            updateStage()
            repeat with t = 1 to 30
              MGISpinE()
              if MGIIntroCounter = 3 then
                set MGIIntroCounter to 0
                set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite - 3
                updateStage()
                next repeat
              end if
              set MGIIntroCounter to 1 + MGIIntroCounter
              set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite + 1
              updateStage()
            end repeat
            set the castNum of sprite d to the castNum of sprite d - 1
            set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to 2000
            set the castNum of sprite MGINoiseSprite to 58
            set MGIIntroCounter to 0
            updateStage()
          end repeat
          cursor(-1)
        end if
      end if
      if MGIIntroCounter = 3 then
        set MGIIntroCounter to 0
        set the castNum of sprite MGINoiseSprite to 59
        updateStage()
        next repeat
      end if
      set MGIIntroCounter to 1 + MGIIntroCounter
      set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite + 1
      updateStage()
    end repeat
    if MGIFindTV = 1 then
      set the ink of sprite MGINoiseSprite to 39
      set the castNum of sprite 47 to the castNum of sprite 47 + 1
      set the locH of sprite getAt(getAt(MGIInternetTextList, 1), 1) to 2000
      MGISpinE()
      set the locH of sprite 2 to the mouseH
      set the locV of sprite 2 to the mouseV
    end if
  end if
  if not rollOver(MGILogoSprite) then
    set the castNum of sprite MGINoiseSprite to 58
    set MGIIntroCounter to 0
    updateStage()
  end if
end

on MGIPosterHighLight
  global MGIFoodPosterSprite, MGILastPosterSprite, MGINoiseSprite, MGIIntroCounter, MGIInternetTextList, MGILaunchI
  if MGILaunchI = 0 then
    repeat with d = MGIFoodPosterSprite to MGILastPosterSprite
      if rollOver(d) and not rollOver(34) then
        set g to d - MGIFoodPosterSprite + 1
        set the castNum of sprite MGINoiseSprite to getAt(getAt(MGIInternetTextList, g), 6)
        set the castNum of sprite d to the castNum of sprite d + 1
        set the castNum of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 2)
        set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 3)
        set the locV of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 4)
        set the ink of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 5)
        updateStage()
        repeat while rollOver(d)
          if rollOver(33) then
            exit repeat
          end if
          if the mouseDown then
            set MGILaunchI to g
            exit repeat
          end if
          MGISpinE()
          if MGIIntroCounter = 3 then
            set MGIIntroCounter to 0
            set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite - 3
            updateStage()
            next repeat
          end if
          set MGIIntroCounter to 1 + MGIIntroCounter
          set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite + 1
          updateStage()
        end repeat
        set the castNum of sprite d to the castNum of sprite d - 1
        set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to 2000
        set the castNum of sprite MGINoiseSprite to 58
        set MGIIntroCounter to 0
        updateStage()
      end if
      if MGILaunchI <> 0 then
        exit repeat
      end if
    end repeat
  end if
  if MGILaunchI <> 0 then
    set MGILaunchI to 0
    if the machineType < 200 then
      beep()
    else
      set the castNum of sprite 36 to 155
      set the locH of sprite 36 to 209
      set the locV of sprite 36 to 217
      updateStage()
      StartBrowser("html/room/index.htm")
    end if
  end if
end